home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / business / mui-rechnung / texwork / showdvi.rexx < prev   
OS/2 REXX Batch file  |  1995-05-14  |  1KB  |  86 lines
  1. /*
  2. ** $VER: ShowDVI.rexx 1.0 (14.05.1995)
  3. **
  4. ** ©1995 Stefan Scherer
  5. **
  6. ** ruft den DVI-Previewer ShowDVI asynchron auf.
  7. ** Achtung: Pfad ist nur aktuelles Verzeichnis und "C:"!!
  8. */
  9.  
  10. OPTIONS RESULTS
  11.  
  12. /* lies die Parameter, die normalerweise ShowDVI direkt bekommen würde */
  13.  
  14. PARSE ARG Parameters
  15.  
  16.  
  17. Dummy = WORD(Parameters,1)
  18.  
  19. IF Dummy = "PUB" THEN
  20.   DO
  21.   Screen = WORD(Parameters, 2)
  22.   File = WORD(Parameters, 3)
  23.   END
  24. ELSE
  25.   DO
  26.   Screen = ""
  27.   File = WORD(Parameters, 1)
  28.   END
  29.  
  30.  
  31. Dir = PRAGMA("DIRECTORY")
  32.  
  33. If Show('Port','showdvi') == 0 Then
  34.   Do
  35.   Address COMMAND
  36.   say "Starte ShowDVI..."
  37.  
  38.   IF Screen ~= "" THEN
  39.     'run >NIL: TeX:bin/showdvi PUB '||Screen||' nolog'
  40.   ELSE
  41.     'run >NIL: TeX:bin/showdvi nolog'
  42.  
  43.   /* warte bis ShowDVI wirklich läuft */
  44.   'SYS:Rexxc/WaitForPort showdvi'
  45.   End
  46.  
  47.  
  48. If Show('Port','showdvi') Then
  49.   Do
  50.     Address "showdvi"
  51.  
  52.     Options Results
  53.  
  54.     GetFile
  55.     LOADEDFILE = RESULT
  56.  
  57.     GetDir
  58.     LOADEDDIR = RESULT
  59.  
  60.     If Right(LOADEDDIR,1)~=':' & Right(LOADEDDIR,1)~='/' THEN
  61.       LOADEDDIR = LOADEDDIR||'/'
  62.  
  63.     If Right(Dir,1)~=':' & Right(Dir,1)~='/' THEN
  64.       Dir = Dir||'/'
  65.  
  66.     If LOADEDDIR = Dir & 1 = Index(Upper(LOADEDFILE||".dvi"),Upper(File)) Then
  67.       Do
  68.         Say "Datei in ShowDVI wird erneuert."
  69.         LoadAgain
  70.       End;
  71.     Else
  72.       Do
  73.         Say "Lade Datei in ShowDVI."
  74.         LoadNew Dir||File
  75.       End
  76.  
  77.     toFront
  78.     Activate
  79.   End
  80. Else
  81.   Do
  82.   Say "Fehler bei ShowDVI aufgetreten!"
  83.   End
  84.  
  85. Exit
  86.